(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     32492,        957]
NotebookOptionsPosition[     30155,        879]
NotebookOutlinePosition[     30575,        896]
CellTagsIndexPosition[     30532,        893]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Primes of the form Fibonacci[n]-2293", "Title",
 CellChangeTimes->{{3.665281715152512*^9, 3.6652817437926493`*^9}}],

Cell["@ https://github.com/a-boy (mailto: a_boy@live.com)", "Author",
 CellChangeTimes->{{3.6652817517016344`*^9, 3.6652818452317333`*^9}}],

Cell["\:7eaf\:60c5\:90e8\:843d QQ\:7fa4 499866721", "Institution",
 CellChangeTimes->{{3.6652818664975185`*^9, 3.6652818968015046`*^9}}],

Cell["Abstract:", "AbstractSection",
 CellChangeTimes->{{3.6652820555776353`*^9, 3.6652820596977406`*^9}}],

Cell["\<\
Fib[n]-2293 is a prime when n= 102, 390, 774, 1014, 1230,1659, 3252, 3432, \
6912, 8790, 11496... 
I had search for 1<n<36660, there are only these 11 primes.\
\>", "Abstract",
 CellChangeTimes->{{3.6652820266030965`*^9, 3.6652820679734726`*^9}, {
  3.665282131165392*^9, 3.6652822163076296`*^9}}],

Cell["2016-02-24", "Date",
 CellChangeTimes->{{3.665282317627529*^9, 3.66528232132574*^9}}],

Cell[CellGroupData[{

Cell["search primes of form Fibonacci[n]-13", "Section",
 CellChangeTimes->{{3.6652762663517094`*^9, 3.665276286167889*^9}}],

Cell["\<\
GCD[Fibonacci[m],Fibonacci[n]] == Fibonacci[GCD[m,n]]
Fibonacci[n] is Even iff n=3*k
Fibonacci[7]=13\
\>", "Text",
 CellChangeTimes->{{3.6652760822348266`*^9, 3.665276205426073*^9}}],

Cell[BoxData[""], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"x", "=", 
      RowBox[{
       RowBox[{"Fibonacci", "[", "n", "]"}], "-", "13"}]}], ",", 
     RowBox[{"PrimeQ", "[", "x", "]"}], ",", 
     RowBox[{"FactorInteger", "[", "x", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "3", ",", "120", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6652763059323626`*^9, 3.6652764144184275`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"-", "11"}], ",", "True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "5"}], ",", "True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "21", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "131", ",", "True", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"131", ",", "1"}], "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "597", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"199", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "2571", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"857", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "10933", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"13", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"29", ",", "2"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "46355", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"73", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"127", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "196405", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3571", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "832027", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"118861", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "3524565", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"41", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"521", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36", ",", "14930339", ",", "True", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"14930339", ",", "1"}], "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39", ",", "63245973", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"47", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"139", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"461", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "267914283", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"13", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"641", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1531", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"45", ",", "1134903157", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"233", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"521", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"9349", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"48", ",", "4807526963", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"449", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"10707187", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51", ",", "20365011061", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"59", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"89", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"199", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"19489", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"54", ",", "86267571259", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"239", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"360952181", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"57", ",", "365435296149", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"47", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"101", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"151", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2207", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "1548008755907", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"929", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1571", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1060673", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"63", ",", "6557470319829", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"13", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"29", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"71", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"281", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"911", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"66", ",", "27777890035275", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4943", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"74928559", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"69", ",", "117669030460981", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"37", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"113", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"9349", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3010349", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"72", ",", "498454011879251", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"53", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4591", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2048528137", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"75", ",", "2111485077978037", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1597", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3571", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"370248451", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"78", ",", "8944394323791451", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"167", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7651321063979", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81", ",", "37889062373143893", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"43", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"89", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"199", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"307", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"54018521", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"84", ",", "160500643816367075", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"13", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"173", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3847", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"742036261", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"87", ",", "679891637638612245", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"5", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"41", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2161", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6643838879", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"90", ",", "2880067194370816107", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"53", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"167", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"173", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"517724573", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"93", ",", "12200160415121876725", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"5", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"11", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"101", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"151", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3001", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"6709", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"144481", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"96", ",", "51680708854858323059", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1254371", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"41200497185329", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"99", ",", "218922995834555169013", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"139", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"461", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"28657", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"119218851371", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"102", ",", "927372692193078999163", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1129", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1637", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"501778076074631", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"105", ",", "3928413764606871165717", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"7", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"13", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"29", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"281", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"14503", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"599786069", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"108", ",", "16641027750620563662083", ",", "True", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"16641027750620563662083", ",", "1"}], "}"}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"111", ",", "70492524767089125814101", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"233", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"521", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"709", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"8969", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"90481", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"336419", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"114", ",", "298611126818977066918539", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"3", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"523", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2325509", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"81839886446959", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"117", ",", "1264937032042997393488309", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"11", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"199", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"331", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"557", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2417", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"39161", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3010349", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"120", ",", "5358359254990966640871827", ",", "False", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"41621", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"128741723048244074887", ",", "1"}], "}"}]}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.665276440573869*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "n", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"PrimeQ", "[", 
      RowBox[{"x", "=", 
       RowBox[{
        RowBox[{"Fibonacci", "[", "n", "]"}], "-", "13"}]}], "]"}], ",", 
     RowBox[{"Print", "[", 
      RowBox[{"{", 
       RowBox[{"n", ",", "\"\<Fib[n]-13 is a prime!\>\""}], "}"}], "]"}]}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "3", ",", "16710", ",", "3"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6652714949148426`*^9, 3.6652715681450095`*^9}, {
   3.6652716004988794`*^9, 3.665271603497305*^9}, {3.665271896476898*^9, 
   3.6652720881957445`*^9}, {3.6652722277819257`*^9, 
   3.6652722334497366`*^9}, {3.665272292245735*^9, 3.6652723085568023`*^9}, {
   3.665272355921623*^9, 3.6652724128605285`*^9}, 3.6652725142980595`*^9, {
   3.66527256655694*^9, 3.6652725872114763`*^9}, {3.6652726583488035`*^9, 
   3.6652726589488335`*^9}, {3.665272713622034*^9, 3.6652727141066666`*^9}, {
   3.6652728260813875`*^9, 3.6652728352496724`*^9}, 3.665273073677579*^9, {
   3.665273362800576*^9, 3.665273500739741*^9}, {3.665273855716395*^9, 
   3.6652739089105425`*^9}, 3.6652766114627275`*^9, {3.6652766947225103`*^9, 
   3.6652767663102303`*^9}}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`n, StandardForm],
  ImageSizeCache->{42., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.6652715136142244`*^9, {3.6652715632977624`*^9, 3.665271572674039*^9}, 
   3.665271618956888*^9, 3.665272110442745*^9, {3.6652721715298996`*^9, 
   3.665272202868207*^9}, 3.6652722344277115`*^9, {3.6652722952977695`*^9, 
   3.6652723094939165`*^9}, {3.6652723577749896`*^9, 3.6652723996585636`*^9}, 
   3.665272515814192*^9, {3.665272571472328*^9, 3.6652725884118056`*^9}, 
   3.6652726634028945`*^9, 3.665272715174919*^9, 3.665272829651192*^9, 
   3.6652728888781743`*^9, 3.665273065545606*^9, 3.665273502407731*^9, 
   3.665273910164014*^9, 3.665276767627106*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"3", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.6652767676427565`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.6652767676427565`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.6652767676427565`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"36", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.6652767676584387`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"108", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.6652767676584387`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"11640", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.665276839858929*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"16710", ",", "\<\"Fib[n]-13 is a prime!\"\>"}], "}"}]], "Print",
 CellChangeTimes->{3.6652732644818363`*^9, 3.66527350242341*^9, 
  3.6652739170166874`*^9, 3.6652770422414513`*^9}]
}, Open  ]]
}, Open  ]],

Cell["\<\
Running the above code in several minutes, I have got: When  \
n={3,6,12,36,108,11640,16710}, Fibonacci[n]-13 are the only 7 primes for \
1<n<26016 .\
\>", "Text",
 CellChangeTimes->{{3.6652769926105957`*^9, 3.665277226191835*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FactorInteger", "[", 
   RowBox[{"{", 
    RowBox[{"108", ",", "11640", ",", "16710"}], "}"}], "]"}], 
  "  "}]], "Input",
 CellChangeTimes->{{3.665273805827846*^9, 3.665273838501063*^9}, {
  3.6652748799713135`*^9, 3.665274880153764*^9}, {3.665277271724474*^9, 
  3.66527728544369*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"97", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"557", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.665273821872076*^9, 3.665273839932421*^9}, 
   3.6652772869966755`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Mod", "[", 
    RowBox[{
     RowBox[{"Fibonacci", "[", "n", "]"}], ",", "13"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "130"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6652702100043125`*^9, 3.665270255631117*^9}, {
  3.665271028058954*^9, 3.665271101841241*^9}, {3.6652716543802414`*^9, 
  3.665271654911426*^9}, {3.665272606592894*^9, 3.665272633647565*^9}, {
  3.665272979918709*^9, 3.665273005895214*^9}, {3.6652774863379602`*^9, 
  3.66527752475661*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "0", ",", "8", 
   ",", "8", ",", "3", ",", "11", ",", "1", ",", "12", ",", "0", ",", "12", 
   ",", "12", ",", "11", ",", "10", ",", "8", ",", "5", ",", "0", ",", "5", 
   ",", "5", ",", "10", ",", "2", ",", "12", ",", "1", ",", "0", ",", "1", 
   ",", "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "0", ",", "8", ",", 
   "8", ",", "3", ",", "11", ",", "1", ",", "12", ",", "0", ",", "12", ",", 
   "12", ",", "11", ",", "10", ",", "8", ",", "5", ",", "0", ",", "5", ",", 
   "5", ",", "10", ",", "2", ",", "12", ",", "1", ",", "0", ",", "1", ",", 
   "1", ",", "2", ",", "3", ",", "5", ",", "8", ",", "0", ",", "8", ",", "8", 
   ",", "3", ",", "11", ",", "1", ",", "12", ",", "0", ",", "12", ",", "12", 
   ",", "11", ",", "10", ",", "8", ",", "5", ",", "0", ",", "5", ",", "5", 
   ",", "10", ",", "2", ",", "12", ",", "1", ",", "0", ",", "1", ",", "1", 
   ",", "2", ",", "3", ",", "5", ",", "8", ",", "0", ",", "8", ",", "8", ",", 
   "3", ",", "11", ",", "1", ",", "12", ",", "0", ",", "12", ",", "12", ",", 
   "11", ",", "10", ",", "8", ",", "5", ",", "0", ",", "5", ",", "5", ",", 
   "10", ",", "2", ",", "12", ",", "1", ",", "0", ",", "1", ",", "1", ",", 
   "2", ",", "3", ",", "5", ",", "8", ",", "0", ",", "8", ",", "8", ",", "3", 
   ",", "11", ",", "1", ",", "12", ",", "0", ",", "12", ",", "12", ",", "11", 
   ",", "10"}], "}"}]], "Output",
 CellChangeTimes->{3.66527752547449*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["primes of the form Fibonacci[n]-2293", "Section",
 CellChangeTimes->{
  3.665277624543271*^9, {3.6652785500245056`*^9, 3.66527855490893*^9}}],

Cell["\<\
It seems that: If x=Fibonacci[n]-2293 is composite, x has a small factor. So \
searhing primes of the form Fibonacci[n]-2293 is very fast! I got first these \
11 primes spending only several minutes.\
\>", "Text",
 CellChangeTimes->{{3.6652843444565177`*^9, 3.6652844112858934`*^9}, {
  3.665284444436698*^9, 3.6652844973858814`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"Fib[n]-2293 is a prime when n= \"\>"], "Print",
 CellChangeTimes->{3.6652781156846886`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"102", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[102, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781156846886`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"390", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[390, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781156846886`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"774", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[774, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781157003417`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1014", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[1014, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781157003417`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1230", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[1230, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781157717943`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1659", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[1659, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781158343005`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3252", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[3252, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781164111347`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3432", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[3432, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.665278116564046*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"6912", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[6912, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.665278123881363*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"8790", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[8790, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.665278134539794*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"11496", "\[InvisibleSpace]", "\<\", \"\>"}],
  SequenceForm[11496, ", "],
  Editable->False]], "Print",
 CellChangeTimes->{3.6652781639256053`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.665278018366829*^9, 3.6652780811136913`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Dynamic", "[", "n", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "\"\<Fib[n]-2293 is a prime when n= \>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"PrimeQ", "[", 
      RowBox[{"x", "=", 
       RowBox[{
        RowBox[{"Fibonacci", "[", "n", "]"}], "-", "2293"}]}], "]"}], ",", 
     RowBox[{"Print", "[", 
      RowBox[{"n", ",", "\"\<, \>\""}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "36660", ",", "110001", ",", "3"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.665273032827527*^9, 3.665273038005981*^9}, {
   3.6652776136739845`*^9, 3.6652776379192533`*^9}, {3.665277842291794*^9, 
   3.665277857697954*^9}, 3.665278010659156*^9, {3.665278082967106*^9, 
   3.665278113653323*^9}, {3.665278601733528*^9, 3.665278608863126*^9}, {
   3.6652786992069254`*^9, 3.665278718722847*^9}, 3.665284612879108*^9}],

Cell[BoxData[
 DynamicBox[ToBoxes[$CellContext`n, StandardForm],
  ImageSizeCache->{42., {0., 8.}}]], "Output",
 CellChangeTimes->{
  3.665273040158985*^9, {3.665277627759592*^9, 3.6652776391508303`*^9}, 
   3.6652778649143333`*^9, 3.665278115669092*^9, 3.6652786103640275`*^9, 
   3.665278723576686*^9, 3.665284616715892*^9}],

Cell[BoxData["\<\"Fib[n]-2293 is a prime when n= \"\>"], "Print",
 CellChangeTimes->{3.6652781156846886`*^9, 3.6652786103640275`*^9, 
  3.665278723592353*^9, 3.665284616715892*^9}]
}, Open  ]],

Cell["\<\
http://a-boy.tk/playmath/primes-of-form-(Fibonacci%5Bn%5D-2293).nb\
\>", "Text",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{
  3.665283649324547*^9, {3.6652839138243885`*^9, 3.665283920218374*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (2015\:5e7412\:670810\
\:65e5)",
StyleDefinitions->FrontEnd`FileName[{"Utility"}, "Memo.nb", CharacterEncoding -> 
  "CP936"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 121, 1, 90, "Title"],
Cell[704, 25, 139, 1, 23, "Author"],
Cell[846, 28, 136, 1, 23, "Institution"],
Cell[985, 31, 106, 1, 23, "AbstractSection"],
Cell[1094, 34, 307, 6, 39, "Abstract"],
Cell[1404, 42, 91, 1, 23, "Date"],
Cell[CellGroupData[{
Cell[1520, 47, 124, 1, 54, "Section"],
Cell[1647, 50, 192, 5, 66, "Text"],
Cell[1842, 57, 26, 0, 31, "Input"],
Cell[CellGroupData[{
Cell[1893, 61, 465, 12, 48, "Input"],
Cell[2361, 75, 15766, 466, 532, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18164, 546, 1381, 29, 128, "Input"],
Cell[19548, 577, 700, 11, 31, "Output"],
Cell[CellGroupData[{
Cell[20273, 592, 216, 4, 23, "Print"],
Cell[20492, 598, 216, 4, 23, "Print"],
Cell[20711, 604, 217, 4, 23, "Print"],
Cell[20931, 610, 217, 4, 23, "Print"],
Cell[21151, 616, 218, 4, 23, "Print"],
Cell[21372, 622, 218, 4, 23, "Print"],
Cell[21593, 628, 220, 4, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[21840, 636, 241, 5, 28, "Text"],
Cell[CellGroupData[{
Cell[22106, 645, 322, 8, 48, "Input"],
Cell[22431, 655, 897, 30, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23365, 690, 551, 12, 48, "Input"],
Cell[23919, 704, 1507, 22, 72, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[25475, 732, 147, 2, 54, "Section"],
Cell[25625, 736, 344, 6, 28, "Text"],
Cell[CellGroupData[{
Cell[25994, 746, 109, 1, 23, "Print"],
Cell[26106, 749, 188, 5, 23, "Print"],
Cell[26297, 756, 188, 5, 23, "Print"],
Cell[26488, 763, 188, 5, 23, "Print"],
Cell[26679, 770, 190, 5, 23, "Print"],
Cell[26872, 777, 190, 5, 23, "Print"],
Cell[27065, 784, 190, 5, 23, "Print"],
Cell[27258, 791, 190, 5, 23, "Print"],
Cell[27451, 798, 188, 5, 23, "Print"],
Cell[27642, 805, 188, 5, 23, "Print"],
Cell[27833, 812, 188, 5, 23, "Print"],
Cell[28024, 819, 192, 5, 23, "Print"]
}, Open  ]],
Cell[28231, 827, 94, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[28350, 832, 1037, 23, 166, "Input"],
Cell[29390, 857, 326, 6, 31, "Output"],
Cell[29719, 865, 180, 2, 23, "Print"]
}, Open  ]],
Cell[29914, 870, 213, 5, 38, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
